Program tong_so_le;

Uses crt;

Var S,N,I:Integer;

Xữa chương trình sau( nếu sai)

Begin

Clrscr;

Write('Nhap N ');Readln(N);

S:=0;

For I:=1 to N do If (I mod 2<>0) then

S:=S+I;

Writeln('Tong cac so le la ',S); Readln;

End.

Giup mik nha các bn

Thanks

Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End

Cho biết kết quả chương trình sau và giải thích

program vidu;
uses crt;
var i:integer;
begin
  clrscr;
  i:=15;
  while i>1 do 
  begin
  If i mod 2 =0 then i:=i div 2 else i:=i*3+1;
  Write(i:5);
  End;
  readln;
end.

huyển sang C++ với ạ: Program Tinh_Trung_Binh; uses crt; Var n,dem:Integer; x,TB:real; begin clrscr; dem:=0 ;TB:=0; write('nhap so cac so can tinh n=');realdn(n) while dem<n do begin dem:=dem+1 write('nhap so thu' ,dem,'='); readl(x); TB:=TB+x; end; TB:=TB/n; writeln('Trung binh cua',n,` so la =',TB:10:3); writeln('nhap Enter de thoat...'); readln; end.

Viết CT kiểm tra xem 1 số nguyên được nhập từ bàn phím có tính chất đối xứng hay ko.

Sửa lỗi cho ct viết theo đề bài trên:

uses crt;

var a,n,i:integer;

begin

write('nhap so: ');readln(a);

n:=length(a);

for i:=1 to n do

if a[i] = a[n-i+1] then write('co') else write('khong');

readln

end.

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh

uses crt;

var A B: integer;

begin

clrscr;

writeln(‘Nhap so A: ’) readln(A);

writeln(‘Nhap so B, khac so A: ‘); readln(B);

if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

end.

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program So_Sanh;

uses crt

var A: B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’);

readln(B);

writeln(‘Nhap so B, khac so A: ‘);

readln(B);

if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

End.